home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / nos107c / road2.plp < prev   
Text File  |  1993-11-30  |  9KB  |  280 lines
  1. /*    ＲＯＡＤ２の電話番号一覧選択    */
  2. %setTEL    {
  3.     SNDMSG({erande_f.snd});
  4.     footnote({ROAD2 ｱｸｾｽ･ﾎﾟｲﾝﾄの電話番号を直接入力処理中,,,♪});
  5.     %a @input({ROAD2の電話番号を入力してネ☆（入力後は｢ﾘﾀｰﾝｷｰ↓｣）},,
  6.         ROAD2);
  7.     case    (a<>{},    {Yes},{ROAD2:=@getchar(a,1,80)},
  8.             {No},{setTEL});
  9.     };
  10.  
  11. %HOKKAIDO{
  12.     SNDMSG({erande_f.snd});
  13.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  14.         ,,
  15.         { 札  幌 },{ROAD2:={011-898-3344}},
  16.         { 滝  川 },{ROAD2:={0125-22-4126}},
  17.         { 函  館 },{ROAD2:={0138-56-8214}},
  18.         { 室  蘭 },{ROAD2:={0143-43-2271}},
  19.         { 苫小牧 },{ROAD2:={0144-36-6081}},
  20.         { 網  走 },{ROAD2:={0152-44-9728}},
  21.         { 釧  路 },{ROAD2:={0154-22-1726}},
  22.         { 帯  広 },{ROAD2:={0155-25-7511}},
  23.         { 北  見 },{ROAD2:={0157-25-9103}},
  24.         { 旭  川 },{ROAD2:={0166-24-6801}},
  25.         {直接入力},{setTEL}
  26.         );
  27.     };
  28.  
  29. %TOHOKU    {
  30.     SNDMSG({erande_f.snd});
  31.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  32.         ,,
  33.         { 弘  前 },{ROAD2:={0172-37-8200}},
  34.         { 青  森 },{ROAD2:={0177-35-6721}},
  35.         { 八  戸 },{ROAD2:={0178-47-3260}},
  36.         { 秋  田 },{ROAD2:={0188-31-6640}},
  37.         { 盛  岡 },{ROAD2:={0196-51-4221}},
  38.         { 北  上 },{ROAD2:={0197-64-7636}},
  39.         { 仙  台 },{ROAD2:={022-213-3322}},
  40.         { 酒  田 },{ROAD2:={0234-26-7666}},
  41.         { 山  形 },{ROAD2:={0236-25-6213}},
  42.         { 東  根 },{ROAD2:={0237-43-7780}},
  43.         { 米  沢 },{ROAD2:={0238-23-5748}},
  44.         {会津若松},{ROAD2:={0242-32-3190}},
  45.         { 福  島 },{ROAD2:={0245-22-1609}},
  46.         { いわき },{ROAD2:={0246-21-7622}},
  47.         { 郡  山 },{ROAD2:={0249-21-2194}},
  48.         {直接入力},{setTEL}
  49.         );
  50.     };
  51.  
  52. %NKANTO    {
  53.     SNDMSG({erande_f.snd});
  54.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  55.         ,,
  56.         { 前  橋 },{ROAD2:={0272-54-2300}},
  57.         { 高  崎 },{ROAD2:={0273-27-8955}},
  58.         { 館  林 },{ROAD2:={0276-75-4101}},
  59.         { 桐  生 },{ROAD2:={0277-44-0088}},
  60.         { 那  須 },{ROAD2:={0287-29-3304}},
  61.         { 足  利 },{ROAD2:={0284-73-3711}},
  62.         { 小  山 },{ROAD2:={0285-24-9350}},
  63.         { 宇都宮 },{ROAD2:={0286-38-9999}},
  64.         { 水  戸 },{ROAD2:={0292-28-1393}},
  65.         { 日  立 },{ROAD2:={0294-21-5820}},
  66.         { 下  館 },{ROAD2:={0296-25-6401}},
  67.         { 筑  波 },{ROAD2:={0298-55-0808}},
  68.         { 所  沢 },{ROAD2:={0429-25-6401}},
  69.         { 浦  和 },{ROAD2:={048-825-8920}},
  70.         { 川  口 },{ROAD2:={048-226-0471}},
  71.         { 熊  谷 },{ROAD2:={0485-22-9270}},
  72.         { 越  谷 },{ROAD2:={0489-66-9950}},
  73.         { 川  越 },{ROAD2:={0492-48-1160}},
  74.         { 本  庄 },{ROAD2:={0495-22-7191}},
  75.         {直接入力},{setTEL}
  76.         );
  77.     };
  78.  
  79. %SKANTO    {
  80.     SNDMSG({erande_f.snd});
  81.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  82.         ,,
  83.         { 千  葉 },{ROAD2:={043-299-3300}},
  84.         { 市  原 },{ROAD2:={0436-42-2291}},
  85.         { 君  津 },{ROAD2:={0439-55-5030}},
  86.         { 川  崎 },{ROAD2:={044-755-4466}},
  87.         { 横  浜 },{ROAD2:={045-323-5511}},
  88.         { 新横浜 },{ROAD2:={045-942-3351}},
  89.         { 厚  木 },{ROAD2:={0462-50-3260}},
  90.         { 平  塚 },{ROAD2:={0463-24-9140}},
  91.         { 小田原 },{ROAD2:={0465-24-4130}},
  92.         { 藤  沢 },{ROAD2:={0466-24-6641}},
  93.         { 横須賀 },{ROAD2:={0468-24-5272}},
  94.         {   柏   },{ROAD2:={0471-46-4090}},
  95.         { 松  戸 },{ROAD2:={0473-66-1591}},
  96.         { 船  橋 },{ROAD2:={0474-35-8900}},
  97.         { 茂  原 },{ROAD2:={0475-22-1369}},
  98.         { 成  田 },{ROAD2:={0476-23-5181}},
  99.         { 佐  原 },{ROAD2:={0478-52-6250}},
  100.         {直接入力},{setTEL}
  101.         );
  102.     };
  103.  
  104. %TOKYO    {
  105.     SNDMSG({erande_f.snd});
  106.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  107.         ,,
  108.         { 東  京 },{ROAD2:={03-5703-0222}},
  109.         { 東東京 },{ROAD2:={03-5703-9800}},
  110.         { 南東京 },{ROAD2:={03-5703-9990}},
  111.         { 北東京 },{ROAD2:={03-5710-5100}},
  112.         { 稲  城 },{ROAD2:={0423-78-9911}},
  113.         { 調  布 },{ROAD2:={0424-99-0200}},
  114.         { 立  川 },{ROAD2:={0425-29-7717}},
  115.         { 八王子 },{ROAD2:={0426-22-3141}},
  116.         { 町  田 },{ROAD2:={0427-99-4911}},
  117.         {直接入力},{setTEL}
  118.         );
  119.     };
  120.  
  121. %HOKURIKU{
  122.     SNDMSG({erande_f.snd});
  123.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  124.         ,,
  125.         { 新  潟 },{ROAD2:={025-244-7554}},
  126.         { 上  越 },{ROAD2:={0255-26-3683}},
  127.         {   巻   },{ROAD2:={0256-93-6270}},
  128.         { 長  岡 },{ROAD2:={0258-33-8100}},
  129.         { 長  野 },{ROAD2:={0262-26-4430}},
  130.         { 松  本 },{ROAD2:={0263-35-7999}},
  131.         { 諏  訪 },{ROAD2:={0266-52-5525}},
  132.         { 佐  久 },{ROAD2:={0267-63-6391}},
  133.         { 軽井沢 },{ROAD2:={0267-45-2640}},
  134.         { 小  松 },{ROAD2:={0761-23-5501}},
  135.         { 金  沢 },{ROAD2:={0762-60-7971}},
  136.         { 富  山 },{ROAD2:={0764-55-3378}},
  137.         { 高  岡 },{ROAD2:={0766-26-9554}},
  138.         { 七  尾 },{ROAD2:={0767-54-0482}},
  139.         { 福  井 },{ROAD2:={0776-24-9528}},
  140.         {直接入力},{setTEL}
  141.         );
  142.     };
  143.  
  144. %TYUBU    {
  145.     SNDMSG({erande_f.snd});
  146.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  147.         ,,
  148.         { 名古屋 },{ROAD2:={052-222-2911}},
  149.         { 浜  松 },{ROAD2:={053-458-5596}},
  150.         { 豊  橋 },{ROAD2:={0532-53-9511}},
  151.         { 静  岡 },{ROAD2:={054-272-4011}},
  152.         { 甲  府 },{ROAD2:={0552-26-8700}},
  153.         { 下  田 },{ROAD2:={0558-23-2210}},
  154.         { 沼  津 },{ROAD2:={0559-25-3121}},
  155.         { 岡  崎 },{ROAD2:={0564-26-3731}},
  156.         { 豊  田 },{ROAD2:={0565-26-7981}},
  157.         { 刈  谷 },{ROAD2:={0566-25-1339}},
  158.         { 春日井 },{ROAD2:={0568-51-6500}},
  159.         { 半  田 },{ROAD2:={0569-26-2815}},
  160.         { 多治見 },{ROAD2:={0572-25-6840}},
  161.         { 高  山 },{ROAD2:={0577-32-5401}},
  162.         { 岐  阜 },{ROAD2:={0582-53-7120}},
  163.         { 大  垣 },{ROAD2:={0584-81-0896}},
  164.         { 一  宮 },{ROAD2:={0586-46-2910}},
  165.         {   津   },{ROAD2:={0592-29-1520}},
  166.         { 四日市 },{ROAD2:={0593-54-9304}},
  167.         { 伊  勢 },{ROAD2:={0596-27-1705}},
  168.         {直接入力},{setTEL}
  169.         );
  170.     };
  171.  
  172. %KINKI    {
  173.     SNDMSG({erande_f.snd});
  174.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  175.         ,,
  176.         { 大  阪 },{ROAD2:={06-941-7006}},
  177.         { 新大阪 },{ROAD2:={06-944-4500}},
  178.         { 枚  方 },{ROAD2:={0720-45-2704}},
  179.         {   堺   },{ROAD2:={0722-27-9436}},
  180.         { 泉佐野 },{ROAD2:={0724-69-4800}},
  181.         { 茨  木 },{ROAD2:={0726-24-9130}},
  182.         { 和歌山 },{ROAD2:={0734-74-8180}},
  183.         { 新  宮 },{ROAD2:={0735-23-2286}},
  184.         { 田  辺 },{ROAD2:={0739-22-4340}},
  185.         { 奈  良 },{ROAD2:={0742-34-4191}},
  186.         { 彦  根 },{ROAD2:={0749-22-4140}},
  187.         { 京  都 },{ROAD2:={075-255-6061}},
  188.         { 福知山 },{ROAD2:={0773-24-2622}},
  189.         { 大  津 },{ROAD2:={0775-25-9750}},
  190.         { 神  戸 },{ROAD2:={078-322-0235}},
  191.         { 姫  路 },{ROAD2:={0792-81-1561}},
  192.         { 加古川 },{ROAD2:={0794-35-8734}},
  193.         { 西  宮 },{ROAD2:={0798-64-3661}},
  194.         {直接入力},{setTEL}
  195.         );
  196.     };
  197.  
  198. %CHUGOKU{
  199.     SNDMSG({erande_f.snd});
  200.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  201.         ,,
  202.         { 広  島 },{ROAD2:={082-222-7110}},
  203.         {   呉   },{ROAD2:={0823-25-2942}},
  204.         { 下  関 },{ROAD2:={0832-34-6001}},
  205.         { 徳  山 },{ROAD2:={0834-32-8313}},
  206.         { 宇  部 },{ROAD2:={0836-22-5790}},
  207.         { 山  口 },{ROAD2:={0839-23-1085}},
  208.         { 福  山 },{ROAD2:={0849-26-2421}},
  209.         { 松  江 },{ROAD2:={0852-31-9666}},
  210.         { 鳥  取 },{ROAD2:={0857-29-4694}},
  211.         { 米  子 },{ROAD2:={0859-35-4020}},
  212.         { 岡  山 },{ROAD2:={086-221-2207}},
  213.         { 倉  敷 },{ROAD2:={086-462-2770}},
  214.         { 津  山 },{ROAD2:={0868-24-0533}},
  215.         {直接入力},{setTEL}
  216.         );
  217.     };
  218.  
  219. %SHIKOKU{
  220.     SNDMSG({erande_f.snd});
  221.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  222.         ,,
  223.         { 高  松 },{ROAD2:={0878-21-0251}},
  224.         { 徳  島 },{ROAD2:={0886-55-2890}},
  225.         { 高  知 },{ROAD2:={0888-24-5454}},
  226.         { 宇和島 },{ROAD2:={0895-45-3255}},
  227.         { 新居浜 },{ROAD2:={0897-32-7225}},
  228.         { 今  治 },{ROAD2:={0898-32-6667}},
  229.         { 松  山 },{ROAD2:={0899-31-9300}},
  230.         {直接入力},{setTEL}
  231.         );
  232.     };
  233.  
  234. %KYUSYU    {
  235.     SNDMSG({erande_f.snd});
  236.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  237.         ,,
  238.         { 福  岡 },{ROAD2:={092-452-1900}},
  239.         { 北九州 },{ROAD2:={093-541-6116}},
  240.         { 久留米 },{ROAD2:={0942-39-8670}},
  241.         { 大牟田 },{ROAD2:={0944-56-6751}},
  242.         { 佐  賀 },{ROAD2:={0952-24-2584}},
  243.         { 佐世保 },{ROAD2:={0956-46-1006}},
  244.         { 長  崎 },{ROAD2:={0958-22-6181}},
  245.         { 熊  本 },{ROAD2:={096-359-6300}},
  246.         { 大  分 },{ROAD2:={0975-33-5455}},
  247.         { 延  岡 },{ROAD2:={0982-34-0370}},
  248.         { 宮  崎 },{ROAD2:={0985-32-0301}},
  249.         { 鹿児島 },{ROAD2:={0992-24-8835}},
  250.         {直接入力},{setTEL}
  251.         );
  252.     };
  253.  
  254. %OKINAWA{
  255.     SNDMSG({erande_f.snd});
  256.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  257.         ,,
  258.         { 那  覇 },{ROAD2:={098-866-7179}},
  259.         {直接入力},{setTEL}
  260.         );
  261.     };
  262.  
  263. %setNODE{
  264.     case(ROAD2,{},{ROAD2:={未設定}});
  265.     SNDMSG({erande_f.snd});
  266.     footnote({ＲＯＡＤ２アクセス･ポイント地域の設定処理中,,,♪});
  267.     select({ＲＯＡＤ２アクセス･ポイント地域を選択してネ☆）},
  268.         ,,
  269.         { 北海道 },{HOKKAIDO},    { 東  北 },{TOHOKU},
  270.         { 北関東 },{NKANTO},    { 南関東 },{SKANTO},
  271.         { 東  京 },{TOKYO},    { 北信越 },{HOKURIKU},
  272.         { 中  部 },{TYUBU},    { 近  畿 },{KINKI},
  273.         { 中  国 },{CHUGOKU},    { 四  国 },{SHIKOKU},
  274.         { 九  州 },{KYUSYU},    { 沖  縄 },{OKINAWA},
  275.         {直接入力},{setTEL}
  276.         );
  277.     };
  278.  
  279. setNODE;
  280.